home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / DATADICT / EDITMEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-21  |  1.7 KB  |  70 lines
  1. unit Editmemo;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, dbctrls, clipbrd ;
  7.  
  8. type
  9.   TEdMemoDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     HelpBtn: TBitBtn;
  13.     Bevel1: TBevel;
  14.     Memo1: TMemo;
  15.     Label1: TLabel;
  16.     procedure FormActivate(Sender: TObject);
  17.     procedure Memo1KeyDown(Sender: TObject; var Key: Word;
  18.       Shift: TShiftState);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. procedure edit_memo(var source : tdbmemo; tablestr, fieldstr : string);
  26.  
  27. var
  28.   EdmemoDlg: TEdMemoDlg;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33. procedure edit_memo(var source : tdbmemo; tablestr, fieldstr : string);
  34. var widthdiff : integer;
  35. begin with EdMemoDlg do begin
  36.   widthdiff := width - memo1.width;
  37.   memo1.width := source.width;
  38.   width := memo1.width + widthdiff;
  39.   memo1.lines.assign(source.lines);
  40.   caption := 'Editing Memo Field';
  41.   label1.caption := source.datafield + ' memo for field ' +
  42.     fieldstr + ' in table '+ tablestr;
  43.   if showModal = mrOK
  44.     then source.lines.assign(memo1.lines);
  45.   hide;
  46.   end;
  47. end;
  48.  
  49.  
  50. procedure TEdMemoDlg.FormActivate(Sender: TObject);
  51. begin
  52.   memo1.setFocus;
  53. end;
  54.  
  55. procedure TEdMemoDlg.Memo1KeyDown(Sender: TObject; var Key: Word;
  56.   Shift: TShiftState);
  57. begin
  58. {  if sender is tmemo
  59.     then begin
  60.       if (Shift = [ssctrl]) and (key = ord('X'))
  61.          then (sender as tmemo).cutToClipboard;
  62.       if (Shift = [ssctrl]) and (key = ord('C'))
  63.          then (sender as tmemo).copyToClipboard;
  64.       if (Shift = [ssctrl]) and (key = ord('V'))
  65.          then (sender as tmemo).PasteFromClipboard;
  66.       end;}
  67. end;
  68.  
  69. end.
  70.